home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / visual1a / main.frm < prev    next >
Text File  |  1999-08-17  |  10KB  |  359 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    AutoRedraw      =   -1  'True
  4.    BackColor       =   &H00000000&
  5.    BorderStyle     =   4  'Fixed ToolWindow
  6.    ClientHeight    =   3435
  7.    ClientLeft      =   3045
  8.    ClientTop       =   1740
  9.    ClientWidth     =   7440
  10.    Icon            =   "Main.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3435
  15.    ScaleWidth      =   7440
  16.    ShowInTaskbar   =   0   'False
  17.    Begin VB.Frame Frame1 
  18.       BackColor       =   &H00000000&
  19.       ForeColor       =   &H0000FFFF&
  20.       Height          =   855
  21.       Left            =   240
  22.       TabIndex        =   1
  23.       Top             =   2190
  24.       Width           =   6770
  25.       Begin VB.CommandButton cmdDown 
  26.          Caption         =   "»"
  27.          Enabled         =   0   'False
  28.          BeginProperty Font 
  29.             Name            =   "Symbol"
  30.             Size            =   9.75
  31.             Charset         =   2
  32.             Weight          =   700
  33.             Underline       =   0   'False
  34.             Italic          =   0   'False
  35.             Strikethrough   =   0   'False
  36.          EndProperty
  37.          Height          =   315
  38.          Left            =   3840
  39.          Style           =   1  'Graphical
  40.          TabIndex        =   7
  41.          Top             =   270
  42.          Width           =   315
  43.       End
  44.       Begin VB.CommandButton cmdUP 
  45.          Caption         =   "¡"
  46.          Enabled         =   0   'False
  47.          BeginProperty Font 
  48.             Name            =   "Symbol"
  49.             Size            =   9.75
  50.             Charset         =   2
  51.             Weight          =   700
  52.             Underline       =   0   'False
  53.             Italic          =   0   'False
  54.             Strikethrough   =   0   'False
  55.          EndProperty
  56.          Height          =   315
  57.          Left            =   3480
  58.          MaskColor       =   &H00FFFFFF&
  59.          TabIndex        =   6
  60.          Top             =   270
  61.          UseMaskColor    =   -1  'True
  62.          Width           =   375
  63.       End
  64.       Begin VB.CommandButton cmdAbout 
  65.          Caption         =   "?"
  66.          Height          =   315
  67.          Left            =   6150
  68.          TabIndex        =   5
  69.          Top             =   270
  70.          Visible         =   0   'False
  71.          Width           =   405
  72.       End
  73.       Begin VB.CommandButton cmdDelete 
  74.          Caption         =   "&Delete"
  75.          Enabled         =   0   'False
  76.          Height          =   315
  77.          Left            =   90
  78.          MaskColor       =   &H000000FF&
  79.          TabIndex        =   2
  80.          Top             =   270
  81.          UseMaskColor    =   -1  'True
  82.          Width           =   1215
  83.       End
  84.       Begin VB.CommandButton cmdApply 
  85.          Caption         =   "&Apply"
  86.          Enabled         =   0   'False
  87.          Height          =   315
  88.          Left            =   4230
  89.          TabIndex        =   4
  90.          Top             =   270
  91.          Width           =   1215
  92.       End
  93.       Begin VB.CommandButton cmdDelall 
  94.          Caption         =   "Delete &all and exit program"
  95.          Enabled         =   0   'False
  96.          Height          =   315
  97.          Left            =   1290
  98.          TabIndex        =   3
  99.          Top             =   270
  100.          Width           =   2115
  101.       End
  102.    End
  103.    Begin VB.ListBox List1 
  104.       BackColor       =   &H00000000&
  105.       ForeColor       =   &H80000005&
  106.       Height          =   1815
  107.       Index           =   0
  108.       Left            =   240
  109.       MultiSelect     =   1  'Simple
  110.       TabIndex        =   0
  111.       Top             =   360
  112.       Width           =   6770
  113.    End
  114.    Begin VB.ListBox List1 
  115.       BackColor       =   &H00000000&
  116.       ForeColor       =   &H80000005&
  117.       Height          =   1815
  118.       Index           =   1
  119.       Left            =   240
  120.       TabIndex        =   8
  121.       Top             =   360
  122.       Width           =   6770
  123.    End
  124.    Begin VB.Label Label2 
  125.       Caption         =   "By: Gordon Li"
  126.       Height          =   225
  127.       Left            =   750
  128.       TabIndex        =   11
  129.       Top             =   3180
  130.       Width           =   2805
  131.    End
  132.    Begin VB.Label Label1 
  133.       Alignment       =   2  'Center
  134.       BackColor       =   &H00000000&
  135.       BorderStyle     =   1  'Fixed Single
  136.       Caption         =   "Organizer"
  137.       ForeColor       =   &H8000000E&
  138.       Height          =   255
  139.       Index           =   1
  140.       Left            =   1320
  141.       TabIndex        =   10
  142.       Top             =   90
  143.       Width           =   1095
  144.    End
  145.    Begin VB.Label Label1 
  146.       Alignment       =   2  'Center
  147.       BackColor       =   &H00000000&
  148.       BorderStyle     =   1  'Fixed Single
  149.       Caption         =   "Delete"
  150.       BeginProperty Font 
  151.          Name            =   "MS Sans Serif"
  152.          Size            =   8.25
  153.          Charset         =   0
  154.          Weight          =   700
  155.          Underline       =   0   'False
  156.          Italic          =   0   'False
  157.          Strikethrough   =   0   'False
  158.       EndProperty
  159.       ForeColor       =   &H8000000E&
  160.       Height          =   255
  161.       Index           =   0
  162.       Left            =   240
  163.       TabIndex        =   9
  164.       Top             =   90
  165.       Width           =   1095
  166.    End
  167. End
  168. Attribute VB_Name = "Form1"
  169. Attribute VB_GlobalNameSpace = False
  170. Attribute VB_Creatable = False
  171. Attribute VB_PredeclaredId = True
  172. Attribute VB_Exposed = False
  173. Dim MyReg As New cReadWriteEasyReg
  174. Dim Change As Boolean
  175. Dim intIndex As Integer
  176. Dim MyVariant As Variant
  177.  
  178. Private Sub cmdAbout_Click()
  179. frmAbout.Show 1
  180. End Sub
  181.  
  182. Private Sub cmdApply_Click()
  183. If List1(intIndex).ListCount > 0 And Change Then
  184. For i = LBound(MyVariant) To UBound(MyVariant)
  185.     MyReg.DeleteValue (MyVariant(Str(i)))
  186. Next
  187. For i = 0 To List1(intIndex).ListCount - 1
  188.     Call MyReg.CreateValue(i + 1, List1(intIndex).List(i), REG_SZ)
  189. Next
  190. End If
  191. cmdApply.Enabled = False
  192. 'MyReg.CloseRegistry
  193. End Sub
  194. Private Sub cmdDelall_Click()
  195. Change = True
  196. removeList (0)
  197. For i = LBound(MyVariant) To UBound(MyVariant)
  198.     MyReg.DeleteValue (MyVariant(Str(i)))
  199. Next
  200. Unload Me
  201. End Sub
  202.  
  203. Private Sub cmdDelete_Click()
  204. With List1(intIndex)
  205. If .ListIndex = -1 Then Exit Sub
  206. If .SelCount = 1 Then
  207. .RemoveItem .ListIndex
  208. Else
  209.     For i = .ListCount - 1 To 0 Step -1
  210.         If .Selected(i) = True Then
  211.             .RemoveItem i
  212.         End If
  213.     Next
  214. End If
  215.  
  216. Change = True
  217. cmdApply.Enabled = True
  218. cmdDelete.Enabled = False
  219. If .ListCount = 0 Then
  220.     cmdDelall.Enabled = False
  221. End If
  222. End With
  223. End Sub
  224.  
  225. Private Sub Form_Load()
  226. Dim regKey As String
  227. Form1.Caption = App.Comments
  228. cmdUP.Visible = False
  229. cmdDown.Visible = False
  230. regKey = ".DEFAULT\Software\Microsoft\Visual Basic\6.0\RecentFiles"
  231. 'load the content from registry to Listbox
  232. If Not MyReg.OpenRegistry(HKEY_USERS, regKey) Then
  233.     MsgBox "Couldn't open the registry"
  234.     End
  235.     Exit Sub
  236. End If
  237. MyVariant = MyReg.GetAllValues
  238. On Error Resume Next
  239. For i = LBound(MyVariant) To UBound(MyVariant)
  240.     List1(0).AddItem MyReg.GetValue(MyVariant(Str(i)))
  241.     List1(1).AddItem List1(0).List(i)
  242. Next i
  243. Change = False
  244. If List1(0).ListCount = 0 Then
  245.     res = MsgBox("There's nothing in the recent list" & Chr(13) & "Press ok to exit", vbOKOnly, "Open error")
  246.     If res = 1 Then
  247.         Unload Me
  248.         Exit Sub
  249.     End If
  250. Else
  251.     List1(0).ListIndex = 0
  252.     cmdDelall.Enabled = True
  253. End If
  254. End Sub
  255.  
  256. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  257. MyReg.CloseRegistry
  258. End Sub
  259.  
  260. Private Sub Label1_Click(Index As Integer)
  261. intIndex = Index
  262.  
  263. Label1(Index).FontBold = True
  264. If Change Then
  265.     removeList (Index)
  266.     addlist (Index)
  267. End If
  268.  
  269. If List1(Index).SelCount <> 0 Then
  270.     cmdDelete.Enabled = True
  271. Else
  272.     cmdDelete.Enabled = False
  273. End If
  274. Select Case Index
  275. Case 0
  276.     Label1(1).FontBold = False
  277.     List1(0).Visible = True
  278.     List1(1).Visible = False
  279.     cmdUP.Visible = False
  280.